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HESSE EEOELENEEVEEEEEED 


In questa lezione vediamo 5 comandi che dovranno essere 
usati in Modo diretto sul listato del programma. 

Comandi molto utili, che consentiranno ad esempio di 
mantenere contemporaneamente due programmi in 
memoria, fonderli insieme, ricercare delle stringhe o 
sostituirle all'interno del listato. 





serve per trasferire il programma presente in Memoria in 
una zona di sicurezza. 





serve per richiamare il programma conservato con il 
comando HMEM. 





serve per fondere insieme il programma in memoria con 
quello conservato con l'HMEM. 





serve per rintracciare tutte le linee di un programma che 
contengono una determinata stringa di caratteri. Dovrà 
essere usato nel Modo: FIND. STRINGA., |-F. 





funziona in Modo simile al FIND; sostituendo in più, con una 
NUOVA stringa, tutte quelle rintracciate e che si vogliono 
cambiare. 


NB: Ogni volta che si vorranno utilizzare le istruzioni 
occorrerà prima caricare il programma HELP allegato 
alla lezione 31. 


PROGRAMMIAMO INSIEME (CBM 64) 
DATA BASE 3° PARTE 


120009 rem *X*X campo da totalizzare x%X 

12029 print "#ig DATA BASE: Campo da totalizzare d' 

12079 Kk=0:K1=9 

12075 K1=K1+1!ifK1i>nthen12139 

12078 iftc(ki>)=1tthen12075 

120999 Kk=K+11x=21y=3+(K+1)/2:!90sub34000:printright$&(str6(K1),2);" 
"5icE(K1) 

12109 ifki=nthen1i2149 

12195 K1=K1+1:ifki>nthen1i2149 

12198 iftc(ki1)=itheni2195 


12119 


CECK1) 


12120 
12130 


K=Kt1ix=22!y=3+Kr2!g0sub34900:printright$(str$(K1),2)5" - "5 


ifk<nthen120975 
x=25y=4+kK/2:90s5ub349909:printright&(str$é(n+t1),2)5" - TOTALE": 


goto 12290 


12149 
ALE " 
12209 
12319 
12320 
124009 
149299 
14020 
14940 
14060 
14980 
141909 
14120 
14200 


14320 
14349 
14509 
14540 
14609 
14799 
162099 
160920 
16190 
16120 


x=225y=3+{(K+1)/2:!90sub340090:printright$s(str$(n+t1),2):" - TOT 


x=25y=29:90sub34009:input"Quale campo vuoi totalizzare":;z 
if (z21)+(z2>n+1)thengosub29990:g90t012290 
ift(z2)=lthengosub200990:g90t0 122099 

return 

rem *%*% stampa generale %%X% 

print"zig DATA BASE: Stampa generale id" 

input "SBEeDNa quale codice ":p!ifp=Othenreturn 

if (p<{1)+(p>i)thengosub29009:g90t014920 
x=4!y=18:!g90sub34090:print "Premi Mm per tornare al menu'”" 
forh=ptoi 

openi,4,7 

print#1,"--- Codice: "irights(" "+istr&(h}),3)5"------------ 


fork=iton 

print#i,right$(str$(K),2); 
ift(K)=9OthenprintB#1,">"5c$(K)5 
ift(K)=lthenprint#1,"-"5c$EK35 

print#1l,rights$(" ",10-lenc$K))); "i "sd$(K,h) 
nextk 

print#1, "Totale: ":d&(n+1,h) 

getj$ 

if {j$="m")+(j$="M">)thenprint#1:closel:return 
print#1l:closel:inexth 

return 

print "Zil DATA BASE: Ordinamento da" 
90sub23990: ifc=Athenreturn 

K=9 
K=K+15x=2!5y=3+(K+1)/2:!g90sub34000:printright$(str$s(K),2)5" - 


"ic $EK) 


16139 


ifk=nthen16160 


161409 K=K+15x=22:5y=3+K/2:90sub34909:printrigsht$(str$£(K),2)" - "5C 
CK) 

16145 ifk<nthen1i6129 

16159 x=2:5y=4+kK/2:!g90sub34900:pr intright$&(str$(n+1),2)5" - TOTALE": 
goto 16200 

16160 x=22!y=3+(K+1)/2:g90sub34000:pr intright$s(stré(n+t1),2):" - TOT 
NALE” 

16200 x=11:y=209:905ub34900: input"5u quale campo"? 

162209 ifj<1)+{(j>n+t1i)>)thengoasub209000:g90t015209 

16259 x=3:y=29:g0sub340009:print"Ordinamento in corso, attendi ..." 
16399 forxS=litoi-i:forxS=x5S+t1itoi 

15329 if (t(j)=29)%{(vald$&{j,x6))>}=val(d$&(j,x5)))then16509 

16349 if (t(j)=1)%(d$(j,x6)>=d$(j,x5))then16590 

16359 fork=litont+t1 

16380 bf£=d$(k,x5)5d$(K,x5)=d${K,x6)!5d${K,x6)=bf£ 

16409 nextk 

1552909 nextx6,x5 


166099 x=3!yv=209:90sub3490009:print" Ordinamento completo z: 
16629 gosub220090:return 
17900 print "Zig DATA BASE: Gestione file di dati ud" 


172909 x=10:yv=6:g0sub340009:!print"1 - Caricamento" 

17220 x=10:y=8:g0sub340090:print"2 - Registrazione" 

17300 x=19:y=19:g905ub34990:print"Scelta (1-2)" 

17329 getgf&: if (g9f$£<"1")+(gf$>"2">)theni7320 

17409 ifgf£="1"then1909000 

18999 rem %%% registrazione dati %%X% 

18920 print "zig DATA BASE: Registrazione dati u' 

18930 x=19:y=6:!90sub34000:print"i - Nastro" 

13049 x=109:y=8:g0sub349090:print"2 - Disco" 

18059 x=10:y=19:g0sub34000:print"Scelta (1-2)" 

138969 getsuf:!if(sus0("1")+(su$>"2">)then 180609 

18970 ifsus="1"thendw=1i:nc=1:su£="nastro"ino$=n$ 

180989 ifsu&="2"thendyv=S!nc=2:!no$&="t0:"+n$+",s,y"!isu$="disco " 
18990 print "Zi DATA BASE: Registrazione su "5su$;" sd" 
18200 ifsu$="disco "thensus="disco" 

18249 x=4!y=65:90sub34900:print"Inserisci il "isu&" dei dati" 
18259 90s5ub23990:ifc=OAthenreturn 

18270 x=9:!y=19:g90sub34009 


12309 
18319 
12339 
18349 
18359 
18409 
13419 
184209 
18439 
18449 
138529 
198528 
19539 
18549 
185659 
18590 
18609 
19090 
19919 
19920 
19939 
19049 
190509 
190689 
19965 
19966 
19979 
19989 
19999 
19299 
19249 
13259 
19269 
19279 
19300 
19319 
19339 
19348 
19359 
193689 
19499 
19429 
19449 
19500 
195209 
19539 
19549 
19569 
19580 
19599 


openi,du,nc,h0$ 

prinmt#i.rc 

print#1,i 

print#1i,n 

print#i,n$ 

fork=iton 

printH#1,c$8CK) 

printBi,tK) 

print#1,1CK9) 

nextk 

forx=itoi 

fork=itonti 

aqa#E=d$£(K,x)!ifga$=""thenqg$="£" 

print#1,a$ 

nextk,x 

closel 

return 

rem x%%* caricamento dati %%%X* 

cir 

print"=idZ DATA BASE: Caricamento dati ud" 
x=109:y=65:g0sub349099:print"i1 - Nastro" 
x=19:!y=8:!g90sub34900:print"2 - Disco" 
x=19:!y=19:90sub34990:print"Scelta (1-2)" 
getsu#£!if(su$£("1")+(su$>"2")theni19960 
x=19:!y=15:g905ub34000:input "Nome file";n$ 

if ((sus="2")%x(n£=""))+(lenn$)>16)then19065 
ifsu#="1"thendv=i:!nc=0:!ino$=n$:su$= "nastro ":ino$=n$ 
ifsu$s="2"thendv=8:!inc=2:ino$=n$+",s,r":isu$="disco " 
print"Zid DATA BASE: Caricamento da "isu$;" d' 
ifsu$="disco "thensu#="disco" 
x=4!y=6:!g0sub3490909:print"Inserisci il "isu#&:" dei dati" 
ifdf=ithandf=9:g90sub22000:g90t0192709 
g0sub23990:ifc=Athen49009 

x=0!y=19:!9305ub 340009 

openi,du,nc,n0%$ 

inputBi,rc 

input#1,i 

input#1i,n 

input#l,n$ 

dimc&(nt1),tmt+1),1nt1),d$&(n+t1,rc) 

fork=liton 

input#1,C$E£(K),t{K),1€K) 

nextk 

forx=1toi 

fork=itomt1 

input#1,d$(K,x) 

ifd$(K,x)="C"thend$C(K.,x)="" 

nextKk,x 

closel 

goto40900 


ISTRUZIONI PER L'UTILIZZO DEL DATA BASE. 


Il programma serve per gestire un archivio di dati definito direttamente dall'utente. 
Ad esempio, possono essere gestiti: 


clienti studi Medici fatture dischi 
fornitori negozi club scadenze 
Magazzino libri entrate / uscite contabilità 


CARICAMENTO DEL PROGRAMMA DA CASSETTA: 
accendere il computer, inserire la cassetta nel registratore, premere SHIFT e RUN/STOP, quindi il 
PLAY sul registratore e attendere. 


INIZIO DEL PROGRAMMA: 

dopo la presentazione iniziale premere ancora il RETURN per continuare. Il programma richiederà 
se si intende creare una nuova gestione. 

Premere S per definire una nuova gestione e invece N per passare al caricamento dalla cassetta 
dei dati registrati in precedenza. 


CREAZIONE NUOVA GESTIONE: 

questa procedura è necessaria solo la prima volta che si usa il programma 0 quando si vuole 
creare uNa nuova gestione. 

Inserire il nome della gestione che deve essere composto di sole lettere (Massimo 16). 

Inserire il numero dei campi desiderati per ogni record (Massimo 20). 

Per ogni campo bisognerà specificare: 


- NOME CAMPO (massimo 10 caratteri) 

- TIPO CAMPO (inserire A per definirlo alfanumerico 
e Npernumerico) 

- LUNGHEZZA CAMPO (massimo 24 caratteri se dichiarato A 


e invece 9 se dichiarato N) 
Alla fine della definizione verrà presentato il numero di caratteri perrecord ed il numero Massimo 
di records Memorizzabili in Un unico archivio. 


MENU PRINCIPALE: 

il menu principale permette le opzioni 
- — INSERIMENTO 

- VARIAZIONE 

- CANCELLAZIONE 

- SITUAZIONE GENERALE 
RICERCA 

-  CAMPODATOTALIZZARE 
- STAMPA 

- ORDINAMENTO 

+ -  SAVE/LOADFILE 


DOPNSUINSWYIA 
' 


INSERIMENTO: 
inserire le informazioni in ogni campo. Dopo aver inserito tutte le informazioni verrà calcolato e 
visualizzato il totale automatico. 


TOTALE AUTOMATICO: 

il totale automatico, presente in ogni record, contiene la somma dei contenuti di tutti i campi 
numerici del record stesso. 

Naturalmente viene calcolato automaticamente durante l'inserimento e la variazione dei dati. 
Viene visualizzato ogni volta che è mostrato il record. 


RICONOSCIMENTO CAMPI NUMERICI ED ALFANUMERICI: 
durante la visualizzazione di un record i campi dichiarati come numerici avranno il segno del 
Maggiore ()) subito dopo il numero del campo. 


- IPIONI AYNOIO Hy /9 p861O 


861 OZIOW £ [AP ZZI N QUDIN IP aounquj «i ossasd 04DYSIBaYy - OUDIN 


SUPERAMENTO CAPACITA’ DI MEMORIA: 

nel caso si cerchi di inserire più records di quelli calcolati in fase di definizione, il programma 
visualizzerà il Messaggio indicante il superamento delle capacità di Memoria. 

Si consiglia di salvare il file di dati su cassetta. 


VARIAZIONE: 
inserire il numero del record da variare. Quindi il numero del campo da variare e correggerlo. 
Inserire lo Z per terminare e tornare al Menu. 


CANCELLAZIONE: 
inserire ilnumero del record da cancellare. Confermare con S la cancellazione. L'ultimo record 
inserito prenderà il posto (e quindi il codice) di quello cancellato. 


RISPOSTE DI CONFERMA: 
a volte il programma richiede una conferma. Premere la $ per confermare oppure laNpernon 
confermare. 


SITUAZIONE GENERALE: 
inserire il codice del record da cui far partire la visualizzazione. 
Durante la visualizzazione è possibile usare i tasti: 


A -  peravanzarealrecord successivo 
| -  pertornarealrecord precedente 
M -  pertornarealmenu. 

RICERCA: 


la ricerca permette di ritrovare un certo record o una serie di records. 
Scegliere su quale campo operare la ricerca (si può ricercare su tutti i campi definiti). 


Scegliere il tipo di ricerca per informare il programma del tipo di indirizzo da inserire: 


INCOMPLETO -  sel'indizio comprende solo i primi caratteri 
di quello cercato 

IDENTICO - se l'indizio è uguale a quello cercato 

INTERNO -  sel'indizio è interno a quello cercato 

MAGGIORE - se l'indizio è Maggiore di quello cercato 

MINORE se l'indizio è Minore di quello cercato. 


Inserire l'indizio da ricercare e battere il RETURN. 
Durante la visualizzazione dei records trovati verrà mostrato il TOTALE AUTOMATICO e la SOMMA 
dei contenuti del CAMPO DA TOTALIZZARE. 


CAMPO DA TOTALIZZARE: 
permette di scegliere su quale campo numerico operare la totalizzazione durante la ricerca. 


STAMPA: 
l'opzione è identica a quella della SITUAZIONE GENERALE, con la differenza che avviene la 
stampa su stampante. 


ORDINAMENTO: 

permette di ordinare (alfabeticamente o numericamente, in base a qualsiasi campo) i dati 
dell'intero archivio. Tieni presente che se ci sono parecchi dati questa operazione potrà richiedere 
molto tempo, anche alcune ore. 


REGISTRAZIONE E LETTURA DATI: 
registra e carica i dati dalla cassetta in Modo da conservarli quando il computer viene spento. 


RITORNO AL PROGRAMMA SENZA LA PERDITA DEI DATI: 
se si interrompe l'esecuzione del programma con RUN/STOP sarà possibile ripartire senza alcuna 
perdita di dati scrivendo GOTO 40DI. 


